home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 November / Ahoy_Magazine_86-11_1986_Double_L.d64 / Rep. Comp. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  225b  |  8 lines
  1. 0 print"[147][144]":poke53280,6:poke53281,1
  2. 1 print" commodares....repeated compression ":print:print
  3. 2 rem   repeated compression
  4. 3 rem solution by
  5. 4 rem   keith kushner
  6. 5 rem
  7. 10 inputi$:fort=1tolen(i$):a$=mid$(i$,t,1):c$=c$+chr$(asc(a$)*-(b$<>a$)):b$=a$:next:printc$
  8.